home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib17.dsk
/
COPY CONVERT.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
1KB
|
33 lines
10 TEXT : HOME
20 IF PEEK(64435) = 6 THEN PR = 1: GOTO 50
30 INPUT "WILL YOUR COMPUTER PRINT LOWER CASE? ";AN$: IF AN$ = "Y" THEN PR = 1
40 HOME
50 REM
60 REM COPY CONVERTER
70 REM CHANGES LOWER CASE TO
80 REM CAPS IF APPLE IS NOT
90 REM MODEL //E
100 REM OR CANNOT PRINT
110 REM LOWER CASE
120 REM
130 REM <CTRL-M>=================<CTRL-M>COPY FOLLOWS HERE<CTRL-M>=================<CTRL-M>
140 A$ = "This is a demo of how the lower case": GOSUB 270
150 A$ = "feature of the Apple //e and other ": GOSUB 270
160 A$ = "lower case adapters can be used in": GOSUB 270
170 A$ = "instructions within programs you write.": GOSUB 270
180 A$ = "All copy would be typed in capital and ": GOSUB 270
190 A$ = "lower case for those whose Apples can": GOSUB 270
200 A$ = "read copy in that manner, but will ": GOSUB 270
210 A$ = "translate everything else to upper": GOSUB 270
220 A$ = "case only for the folks with Apple IIs": GOSUB 270
230 A$ = "which only recognize capital letters.": GOSUB 270
240 A$ = " Paul Raymer": GOSUB 270
250 END
260 REM <CTRL-M>============<CTRL-M>COPY CONVERT<CTRL-M>============<CTRL-M>
270 IF PR THEN PRINT A$: PRINT : RETURN
280 FOR X = 1 TO LEN(A$)
290 IF ASC( MID$ (A$,X,1)) >90 THEN PRINT CHR$( ASC( MID$ (A$,X,1)) -32);: GOTO 310
300 PRINT MID$ (A$,X,1);
310 NEXT X
320 PRINT : PRINT
330 RETURN